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DECUS Program Library Write-up 


DECUS NO. 8-584 


PRECIS - A Program to Scan a Binary Tape 
by David Rosenthal, Research Triangle Institute 

PRECIS is a program to obtain quickly a brief summary of the core 
requirements of an unknown binary tape. It is useful to find out what 
areas may be free for inserting patches, etc. It does not guarantee 
success (e.g. some parts of core may be used as buffers); however, it 
can often give a clue as to what is on a particular binary tape. The 
program is also useful to find out what locations are used in order to 
store them efficiently on disk. 

The program additionally prints out the total number of blocks (in 
octal) which are loaded from the tape. This information is useful when 
using the binary punch routine for punching out a section of core. A 
running checksum is also carried and tested for at the end of the tape. 

An independent relocatable subroutine prints out the contents of 
the accumulator on the teletype in octal with leading zeros removed 
(except, of course, for the number "0"). 

Programming . The program was written in PAL III assembler language 
and was assembled on a 4K computer. Since it was designed as a stand 
alone program, no effort was made to economize on space, so the program 
extends over more core than is absolutely necessary. The program uses 
locations 20-50 on page 0 and 13l g locations on page 1, 113 g locations 
on page 3 and 66 g locations on page 4. The program assumes the presence 
of the high speed paper tape reader. However, alteration to accommodate 
the low speed teletype reader is very simple and obvious. 

Page four (1000-1066) is an independently compiled relocatable sub¬ 
routine to type out the contents of the accumulator in octal. Leading 









zeros are sensed and eliminated. If desired, the subroutine could 
easily be altered to print blanks instead of skipping, thus providing 
a uniform output format. 

U se of Program . To operate the program, load the binary tape in 
core with the binary loader. Turn on the teletype and execute, starting 
at location 200 g . The program should be executed with the leader of a 
binary tape in the paper tape reader. After the program has stopped, 
it may be reexecuted by pressing "continue" or, in the case of a serious 
failure (the reader jamming), it may be restarted at location 200. 

Output. The program scans the tape and types out the location of 
each new starting address followed by the address of the last location 
loaded m that block. If the block is a dummy block (no words loaded), 
it is ignored. On sensing the trailer, the running checksum is compared 
with that on the tape. If the checksum is in error, the computer types 
"CK", displays the difference between the computed and found checksum 
on the AC, and halts. If the internal checksum is identical with that 
on the tape, the computer types "OK", followed by the number (in octal) 
of blocks scanned. 

A listing of the program follows. 
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Sample Output 


PKOGKAK *-PKECIs 
SUB-FILE- 
STAhT AT- 


20 - 50 
2GU - 327 

375 - 377 Precis of PRECIS 

600 - 711 
776 - 777 
1000 - 1066 
OK 

6 BLOCKS 


7400 - 7552 
OK 

1 BLOCK . Precis of "Octal Memory Dump" 


1 - 7 
20-177 
200 - 376 
400 - 577 
600 - 777 

1000 - H73 

1200 - 1377 
1400 - 1572 
1600 - 1775 
2000 - 2015 
2031 - 2174 
2200 - 3006 
OK 

14 UL.0CK5 


Precis of PAL III Assembler 
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0020 

0000 

Tl* 

0 

0021 

0000 

T2* 

0 

0022 

0000 

T3* 

0 

0023 

0000 

T 4* 

0 

0024 

0664 

READ* 

RD 

0025 

0077 

K77* 

77 

0026 

0317 

0* 

317 

0027 

0313 


313 

0030 

0303 


303 

0031 

0240 


240 

0032 

0255 


255 

0033 

1000 

OUT* 

100O 

0034 

1057 


1057 

0035 

03O2 

8* 

302 

0 03 6 

031 4 


31 4 

0037 

0323 


323 

0040 

1057 

TY“E* 

1057 

0041 

0672 

CRLF* 

LFCR 

0042 

0000 

IMLOC* 

0 

0043 

0000 


0 

0044 

0000 

CCHK* 

0 

0 045 

0000 


0 

0046 

0000 

FST* 

0 

0047 

0000 

MSLOCK* 

0 

0050 

7600 

M200* 

PAUSE 

7600 

0 200 


*200 


6046 

6046 


0201 

631 6 

6016 



0202 
0203 
0 204 
0205 
0 2.16 
3 23 7 
0210 
021 1 
0212 
0213 
0214 
0215 
0216 
0217 
0220 
0 221 
0222 
0223 
0224 
0225 


/PRECIS- 0 PROGRAM TO SCAM A PDP-R HI MARY TAPE 
/AMD TO PRIMT OUT THE MUMHER OF BLOCKS 
/WRITTEM, THE STARTIMG AMD FIMAL ADDRESS OF EACH 
/BLOCK* AMD CHEKSUM CHECK. PROGRAM USES HIGH-SPEED 
/PAPER TA P E READER* 4K PDP-8 AMD TELETYPE. STARTIMG 
/ADDRESS IS 200. 

*20 


/T'S ARE LOCATIOMS WHERE 4 LAST FRAMES 
/ARE STORED 


/READ SU8. ADD. 

/LETTERS USED IM OUTPUT 


/A DASH 

/AD OF OUTPUT ROUTIME 
/AD OF TYPE 


4441 
30 42 

3043 

3044 

3045 

3046 

3047 
4424 
3 '23 
1 023 
10 50 
7450 
521 1 
4424 
3022 
4424 
3021 
4424 
3020 
1021 


1ST ADDRESS 


JMS I CRLF 
DCA IMLOC 

DCA IMLOC+l/FIM LOC 
DCA CCHK/CALC CHKSUM 
DCA CCHK+ 1 /FOiJMD CHKSUM 
DCA FST /FLAG SAY IMG ITS 
DCA MSLOCK 
JMS I READ/1 ST FRAME 
DCA T4 
TAD T4 
TAD M200 

jnp / .'! 5 ™ E CH A LE ‘> 0E ' ) OP TRAILER? 

OCA ’’"-I. UP THE AUFFERS 

JMS I READ 
DCA T2 
JMS I READ 
DCA T1 

LOOP* TAD TE/TS IT rHE „„ THE T4PEJ 











02:0 

1 )6v> 

TAD Mgflg 

0 227 

7650 

SNA CLA 

0230 

5777 

JMP I 377/Y* GO TO END 

0231 

1023 

TAD T4/.N* IS IT A NEW ADO 

0232 

700 6 

RTL 

0233 

7100 

CLL 

0234 

700 6 

RTL 

0235 

7006 

RTL 

0236 

7430 

S?L 

0 23 7 

4253 

JMS AD/Y GO TO AD 

0240 

427 6 

JMS NJAD/N GO TO NO ADD S 

0241 

7200 

CLA/SHlFT 

0242 

1021 

TAD T2 

0243 

3023 

DCA T4 

0244 

1020 

TAD T1 

0245 

3022 

DCA T3 

0246 

4424 

JMS I READ 

0247 

3021 

DCA T2 

0 250 

4424 

JMS I READ 

0251 

3020 

DCA T1 

0252 

5225 

JMP LOOP 

0253 

0000 

AD*0/SU3 NEW ADDRESS 

0254 

2253 

IS? AD/JMP BACK TO * + 2 

0255 

4776 

JMS I 376/CALL CHKSUM SU8 

0256 

7200 

CLA 

0257 

1046 

TAD FST 

0 263 

7440 

S? A/1S IT THE FIRST AD? 

0261 

4303 

JMS JUTPUT/WRITE OUT INFO 

026? 

2046 

IS? FST /NO MORE SKIPS 

0263 

7300 

CLA CLL 

0 264 

1023 

TAD T A 

0265 

0025 

AND K77 

0 2 66 

7006 

RTL 

0267 

70O6 

RTL 

0270 

700 6 

RTL 

0271 

1022 

TAD T3 

0272 

3042 

DCA INLOC/THE PREV SET UP 

0273 

1042 

TAD INLOC 

0274 

3043 

DCA INLOC-*-1/FINAL ADD 

0275 

5653 

JMP I AD 

0276 

0300 

•NOAD* 3/NOT A NEW AD 

0277 

2043 

IS? INL0C+1/BUMP FINL AD 

0300 

7000 

NOP/EVEN IF IT TURNS OVER 

0301 

4776 

JMS I 376/CHKSUM SUB 

0302 

5676 

JMP I NOAD 

0303 

0000 

OUTPUT* O/PRINTS OUT INFO 

0304 

7200 

CLA 

0 30 5 

1042 

TAD INLOC 

0 30 6 

70 41 

CIA 

0 30 7 

1043 

TAD INLOC+l/lF I NIT = FIN 

0 3 1 0 

7650 

SNA CLA /.NO OUTPUT 

031 1 

5703 

JMP I OUTPUT/SINCE NODATA 

0312 

20 4 7 

IS? N3L0CK/I.NC ¥ OF BLOCKS 

0313 

1042 

TAD INLOC 

0314 

4433 

JMS I OUT/WRITE IN AD 

0315 

1031 

TAD 0+3 /SP 

0316 

4443 

JMS I TYPE 


SUB 


I.M. 


7771 


ADO 





1 


0317 

0353 

0321 

.0332 

3323 

0324 

0325 

0326 

0327 

0375 

0376 

0377 


1 332 

4443 

1331 

4440 

1043 

1375 

4433 

4441 

5703 

7777 
0 703 
0630 


tad our-i 

JMS I TYPE 
TAD J +3 
3>1S I TYPE 
TAD INLOC +1 

Vom' m ' Mcr UNE 

Jv, s I C-2LF 

JMP I OUTPUT 

*375 

7777 

CHK 

EiMD 

PAUSE 


Ff *0M FI.V AD 
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9 63? 

4777 

EN)D> 

*600 

JMS I 777 

3 63! 

7309 


CLA CLL 

3 602 

1023 


TAD T4 /Ct- 

0 693 

709 6 


RTL 

0 60 4 

7906 


RTL 

0 605 

7006 


RTL 

0 60 6 

1022 


TAD T3 

0 60 7 

7041 


CIA 

0610 

1944 


TAD CCHK 

061 1 

- 3045 


DCA CCHK+1 

0612 

1045 


TAD CCHK+1 

0613 

7440 


S2A 

061 4 

5252 


JMP ER 

0615 

1026 


TAD 0 

0616 

4449 


JMS I TYPE 

0617 

1027 


TAD 0+1 

0 620 

4440 


JMS I TYPE 

0 621 

4441 


JMS I CRLF 

0 622 

1047 


TAD NBLOCK 

0 623 

4433 


JMS 1 OUT 

0 62 4 

1031 


TAD 0+3 

0625 

4449 


JMS I TYPE 

0 626 

1035 


TAD B 

0627 

4440 


JMS I TYPE 

0 630 

1936 


TAD B+l 

0 631 

4443 


JMS I TYPE 

0 632 

1026 


TAD 0 

0633 

4440 


JMS I TYPE 

0634 

1*030 


TAD 0+2 

0 63 5 

4440 


JMS I TYPE 

0636 

1027 


TAD 0+1 

0637 

4440 


JMS I TYPE 

0 640 

1047 


TAD MBLOCK 

064 1 

1376 


TAD 776 

0642 

7650 


SMA CLA 

0 643 

5246 


JM p .+3 /Y>' 

0644 

103 7 


TAD R+2 

0645 

4440 


JMS I TYPE 

0646 

4441 


JMS I CRLF 

0647 

7402 


HLT 

0 650 

5651 


JMP I .+1 

0651 

0200 


200 

0 652 

7200 

ER> 

CLA 

0653 

1030 


TAD 0+2 

0 654 

4440 


JMS I TYPE 

0655 

1027 


TAD 0+1 

0656 

4440 


JMS I TYPE 

0657 

4441 


JMS I CRLF 

0 660 

10 45 


TAO CCHK+1 

0661 

7402 


HLT 

0 662 

5663 


JMP I .+1 

0 663 

0200 


200 

0 664 

0900 

RD# 

0 

0 665 

7200 


CLA 

0 666 

601 1 


601 1 

0667 

5266 


JMP .-1 

0 670 

601 6 


601 6 

0671 

5664 


JMP I RD 


/PRIMT our <f OF BLOCKS 


/IS MBLOCK A 1? 
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0672 

0000 

LFCR* 0 


0673 

7200 

CLA 


0674 

1301 

TAD 

. + 5 

0675 

4440 

JMS 

I TYPE 

0 676 

1 302 

TAD 

• ♦ 4 

0677 

4440 

JMS 

I TYPE 

0 700 

5 6 72 

JMP 

1 LFCR 

0 70 1 

0215 

215 


0 702 

0212 

212 


0703 

0000 

CHK# 3 


0 70 4 

7203 

CLA 


0 705 

1022 

TAD 

T3 

0706 . 

1323 

TAD 

T 4 

0707 

1344 

TAD 

CCHK 

0710 

3044 

DCA 

CCHK 

071 1 

5703 

JMP 

*776 

I CHK 

0776 

7777 

7777 

0777 

0303 

OUTPUT 


AD 

0253 

B 

0035 

CCHK 

3044 

CHK 

'0703 

CRLF 

0041 

END 

0 600 

ER 

0652 

FST 

0046 

INLOC 

0042 

K 77 

0025 

LFCR 

0672 

LOOP 

0225 

M200 

0050 

NBLOCK 

0047 

MO AD 

0276 

0 

0026 

OUT 

0033 

OUTPUT 

0303 

RD 

0664 

READ 

0324 

TYPE 

0043 

T 1 

0020 

T2 

0021 

T 3 

0022 

T 4 

0023 











1 000 
1 001 
1 002 
1303 
1 004 

1005 

1006 
1 007 
1010 
101 1 
1012 
1013 
*1014 
1015 
1 016 


0000 

3253 

7100 

3265 

1253 

0254 

7450 

521 4 

2265 

700 6 

7006 

4246 

1253 

0255 

7440 


-'OCTAL PRINT OUT 

/SUBROUTINE TO TAKE A BINARY PATTERN 
/AND PRINT OUT ON TELETYPE 
/LEADING ?ESOS ARE ELIMINATED 
/S.A. 1003 (RELOCATARLF) 

/USES 70COCTAL) LOCATIONS 
* 1000 


IM ACCUMULATOR 


SEC. 


OUT 

DCA 

CLL 

DCA 

TAD 

AND 

SNA 

JMP 

I Si! 

RTL 

RTL 

JMS 

TAD 

AND 

S<!A 


>0 
CH 

FLAG 

CH /STORE 
K700O 

/A 0? 

SEC /Y.GO ON 
FLAG/N.SEf FLAG 


/FLAG 

CALLED 

/PULL 


FOR LEADING 0*5 
UP CHAR IN AC 
OUT 1ST DIGIT 


/MOV/E TO RIGHT 
/PRINT IT 


HAND SIDE OF AC 


/2ND DIGIT 


1017 

5223 


JMP 

1020 

1265 


TAD 

1021 

7650 


SNA 

1022 

5230 


JMP 

1023 

2265 


IS? 

1024 

7012 


RTR 

1025 

7012 


RTR 

1 026 

7012 


RTR 

1027 

4246 


JMS 

1 030 

1253 

THIRD, 

TAD 

1031 

0256 


AND 

. 1 032 

7440 


S?A 

1 333 

5237 


JMP 

1034 

1265 


TAD 

1035 

7653 


SNA 

1 036 

5242 


JMP 

1037 

7012 


RTR 

1 040 

7010 


RAR 

1 041 

4246 


JMS 

1042 

1253 

FOUR, 

TAD 

t 043 

0266 


AND 

1 044 

4246 


JMS 

1045 

5630 


JMP 

1046 

0000 

PR, 

0 

1047 

1252 


TAD 

1 050 

4257 


JMS 

l 051 

5646 


JMP : 

1052 

0260 


263 

1 353 

0000 

CH, 

0 

1054 

7000 

K 7000, 

7030 

1055 

0700 

K 700, 

700 

l 056 

00 70 

K 70, 

70 

1 057 

0000 

TY, 

3 

1 060 

6041 


6041 

1061 

5260 


JMP . 

1 062 

6046 


6046 

1063 

7200 


CLA 

1064 

5657 


JMP I 

1 065 

0000 

FLAG, 

0 

1066 

3007 

K 7, 

7 


>>R 
CH 

K 700 

/ 0 ? 

•+4/N,PRINT IT 

FLAG /Y.BUT IS IT LEADING? 

CLA /LEADING 0 
THIRD /y, 

FLAG /y 


> GO ON 
SET FLAG 


/MOVE TO RIGHT 
PR 
CH 
K 70 

•♦4. /all THIS LOGIC AS DEFORF 

FLAG 

CLA 

FOUR 

/MOVE 3 DIGITS 
/TO RIGHT 
/PRINT 


PR 
CH 
K 7 
PR 

I OUT 


/DONE 


• + 3 
TY 

I PR 


/260 + 
/TYPE 


/CONSTANT 

/STOREHOUSE OF CHARACTER 
/MASKS 


-1 


TY 
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V 


CH 

1 3 S3 

flag 

1365 

FOUR 

1042 

K 7 

1366 

K 73 

1356 

K 733 

1055 

K 7330 

1054 

our 

1000 

PR 

1046 

SEC 

101 4 

THIRD 

1030 

TY 

1057 








